home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / Save-BIN.zprx < prev    next >
Text File  |  1995-03-09  |  2KB  |  97 lines
  1. /* $VER: 1.0 Save-Bin 29.01.1994 Autor:Jörn Krüger
  2.  
  3. J.KRUEGER@AIGM.platinum.werries.de (Joern Krueger)
  4.    
  5.    Dieses Script ist Freeware. (c) 1994 by J. Krüger
  6.  
  7.    Save-BIN durchsucht die Brettliste nach neuen Binaernachrichten.
  8.    und speichert sie in einem anzugebenden Verzeichniss. Nach dem
  9.    Speichern werden sie entpackt.
  10.  
  11.    Das Script kann in Toolmanager eingebunden werden. Das DOCK legt
  12.    man dann auf den ZPoint Screen und schon hat man seine eigene
  13.    Gadgetzeile. :-)
  14. */
  15.  
  16. CountLHA = 0
  17. CountLZH = 0
  18. CountJPG = 0
  19.  
  20. /* Archiv Verzeichniss hier eintragen */
  21. ADIR = "Archive:"
  22.  
  23. /* Entpack Verzeichniss hier eintragen */
  24. EDIR = "RAM:"
  25.  
  26. OPTIONS RESULTS
  27.  
  28. ADDRESS 'ZPoint'
  29.  
  30. whichlevel
  31. if (RESULT ~= "BOARDMENU") then do
  32.    boardmenu
  33. end
  34.  
  35. jumptoboard 1
  36.  
  37. count new
  38. NBoard = result
  39.  
  40. do i = 1 to NBoard
  41.  
  42.    jumptonew down
  43.  
  44.    if RC = 1 then do
  45.  
  46.       enterboard
  47.       count new
  48.       NMail = result
  49.                                              /* Neue Mails ueberpruefen */
  50.       do x = 1 to NMail
  51.  
  52.          messageinfo type
  53.  
  54.          if (RESULT = "BINARY") then do
  55.                                              /* Filename feststellen    */
  56.             markasold 
  57.             messageinfo subject
  58.             filename  = result
  59.             filename  = left(result,30)
  60.             filename  = space(filename,1,'_')
  61.             filename  = 'Archive:' filename  /* Hier den Speicherpfad   */
  62.             filename  = space(filename,0)    /* eintragen.              */
  63.             Extension = Right(Filename,4)
  64.             Extension = Upper(Extension)
  65.             savemessage filename
  66.          end
  67.  
  68.          if compare(Extension,".LHA") = 0 then do
  69.             ADDRESS COMMAND 'LHA x' filename 'ram:'  /*LHA entpacken */
  70.             CountLHA = CountLHA + 1
  71.             Extension = " "
  72.          end
  73.  
  74.          if compare(Extension,".JPG") = 0 then do    /* auch andere Files */
  75.             CountJPG = CountJPG + 1                  /* werden erkannt    */
  76.             Extension = " "
  77.          end
  78.  
  79.          if compare(Extension,".LZH") = 0 then do    /* soll es ja auch noch */
  80.             ADDRESS COMMAND 'LHA x' filename 'ram:'  /* geben                */
  81.             CountLZH = CountJPG + 1
  82.             Extension = " "
  83.          end
  84.  
  85.          jumptonew down
  86.  
  87.       end
  88.  
  89.       boardmenu
  90.  
  91.    end
  92.  
  93. end
  94.  
  95. REQUESTNOTIFY 'LHA:' CountLHA 'JPEG:' CountJPG 'LZH:' CountLZH
  96. /* nur ein wenig Statistik */
  97.